10 POKE52,52:POKE56,52:CLR:POKE53281,0:POKE53280,0
20 DV=PEEK(186):IFDV<8THENDV=8
30 PRINT"[147]":GOSUB60000
40 DIMW$(100),B(15),S$(17),M$(17),T$(17),MC(17),BR(17)
50 UNPACK=13824:HG=13827:SR=52480:SQ=52486:G=49153:IP=13312
52 SYS57812"ANTH 3400-3747",DV,0:POKE780,0:POKE781,0:POKE782,52:SYS65493
54 SYS57812"ANTH/FLAG.SHP",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
56 PRINT"[147]":POKE251,64:POKE252,96:POKE253,80:SYSUN
58 POKE252,96:POKE253,80:SYSHG
60 SYS57812"ANTH FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
80 SYS57812"ANTH C000-CF5F",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
90 FS$="[129][193][206][212][200][197][205][211] [193][206][196] [198][204][193][199][211]"
100 SP$="                                        "
110 SYSSR,96,76,56
120 TP$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
130 BT$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
140 FORI=0TO15:READS$:S$(I)=S$+".SHP":M$(I)=S$+".MUS":T$(I)=S$+".TXT"
150 READMC(I),BR(I):NEXT
151 DATABOTSWANA,0,6
152 DATABRAZIL,0,6
153 DATABRUNEI,1,6
154 DATABULGARIA,0,6
155 DATABURMA,0,5
156 DATABURUNDI,0,6
157 DATACAMEROON,0,6
158 DATACANADA,0,6
159 DATAABU DHABI,0,6
160 DATACENTAFRICREP,0,14
161 DATACHAD,0,5
162 DATACHILE,0,5
163 DATAPEOPREPCHINA,0,5
164 DATATAIWAN-CHINA,0,5
165 DATACOLOMBIA,0,5
166 DATACONGO,0,14
200 SYSHG
210 GOTO600
220 :
230 :REM BOX
240 :
250 POKE214,Y:PRINT
260 PRINTTAB(X)"[176]"LEFT$(TP$,XX)"[174]"
262 PRINTTAB(X)"[170]["LEFT$(SP$,XX-2)"][180]"
270 FORII=2TOYY:PRINTTAB(X)"[170]"LEFT$(SP$,XX)"[180]":NEXT
272 PRINTTAB(X+1)"[145]<"TAB(X+XX)">"
280 PRINTTAB(X)"[173]"LEFT$(BT$,XX)"[189]"
290 RETURN
300 :
310 :REM LOAD PIC/MUS/TXT
320 :
330 POKE214,20:PRINT:PRINTTAB(14)"[155][204]OADING [208]ICTURE[145]"
340 SYS57812S$(S),DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
350 PRINTTAB(22)"[205]USIC  [145]"
360 SYS57812M$(S),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
370 PRINTTAB(22)"[215]ORDS  [145]"
380 FORI=0TO99:W$(I)="":NEXT
390 SYS13312,T$(S),DV
400 H=PEEK(252)*256+PEEK(251)
410 W$(0)=MID$(W$(0),3)
420 PRINTTAB(14)"               "
430 RETURN
440 :
450 :REM DISPLAY/PLAY
460 :
470 POKE251,64:POKE252,96:POKE253,76:SYSUN
480 POKE252,96:POKE253,76:SYSHG
490 SYS49615:POKE781,0:POKE782,128:SYS49664:POKE49152,7:MU=1
500 RETURN
510 :
520 :REM TURN OFF PIC/MUS
530 :
540 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49897:SYS49935:MU=0
550 SYSHG
560 RETURN
570 :
580 :REM LOOP
590 :
600 S=1
610 PRINT"[147]":POKE53272,31
620 GOSUB880
622 POKE214,19:PRINT
624 IFF1THENPRINTTAB(4)"SPACE [154] NEXT SONG  Q [154] QUIT TO MENU":GOTO628
626 PRINTTAB(12)"SPACE [154] STOP SONG
628 [141]330
630 N[178]0
640 [141]470:[151]53280,BR(S)
650 [158]SQ[171]3,"	STOPOPEN"
660 [139]MC(S)[167][158]SQ[171]3,"OPEN"
670 [129]I[178]0[164]4:[158]SQ,1,20[170]I,[200](SP$,38):[130]
680 [129]I[178]0[164]4
690 [139][195](W$(N[170]I))[179]3[167]710
700 [158]SQ,20[171][181](([195](W$(N[170]I))[173]2)),20[170]I,W$(N[170]I)
710 [130]
720 [158]SQ[171]3,"WAIT"
730 [139][194](49152)[179][177]7[167]A$[178]" ":[137]830
740 JV[178][194](56320):[161]A$:[139]A$[178]""[175](JV[178]127)[167]730
742 [139]F1[167][139]A$[178]"Q"[167]F1[178]0:G[178]0:[141]540:[137]620
750 [139]A$[179][177]""[175](JV[179][177]126)[167]790
760 [139]N[177][178]H[171]5[167]730
770 N[178]N[170]5
780 [137]660
790 [139]A$[179][177]""[175](JV[179][177]125)[167]830
800 [139]N[179]2[167]730
810 N[178]N[171]5
820 [137]660
830 [139]A$[178]" "[176]JV[179]112[167][141]540:S[178](S[170]1)[175]15:[137]620
840 [137]730
850 :
860 :[143] MENU SCREEN
870 :
880 [151]53281,0:[151]53280,0
882 [139]S[178]0[167]S[178]1:F1[178]0:[137]1050
890 [139](G[178]1)[175](MC(S[171]1)[178]0)[175](F1[178]1)[167]1050
900 [139](G[178]1)[175](MC(S[171]1)[178]0)[175](F1[178]0)[167]1050
910 G[178]1:[153]"LOAD":X[178]2:XX[178]35:Y[178]0:YY[178]21:[141]250
920 [153]"FOR"[163]10)"ORTANTAN^           ORTANTAN^
930 PRINTTAB(10)"[171][192][192][179][158]NTHEMS AND[129] [171][192][179][158]LAGS
940 [153][163]10)"FOREXP  /TANTANTANTANTANTAN    TANEXP
950 PRINTTAB(13)"[145][192][192][192][192][174]  [176]
960 [153][163]13)"SYSOF THEFOR (null)OR^(null)SYSORLD
970 PRINTTAB(13)"[129]       [173][189][173][189]
972 [153]"VERIFY(null)CLOSE(null)CLOSE"[163]33)"WAITVERIFY(null)CLOSE(null)CLOSE"
974 [153]"VERIFY(null)OPENCLOSELOGCLOSE"[163]33)"WAITVERIFY(null)CLOSELOGCLOSE"
976 [153]"VERIFY(null)"[163]33)"(null)"
978 [153]"VERIFY(null)"[163]33)"(null)"
980 [151]214,8:[153]
990 [129]I[178]0[164]7:[153][163]6)""[199](I[170]65);
1000 [153][163]9)"CONT"[200](S$(I),[195](S$(I))[171]4);
1010 [153][163]22)""[199](I[170]73);
1020 [153][163]25)"CONT"[200](S$(I[170]8),[195](S$(I[170]8))[171]4):[130]
1030 [153][163]12)"R  CONT'ROUND THE WORLD
1040 PRINTTAB(12)"Q  [154]QUIT
1050 [139]F1[167][161]A$:[139]A$[178]""[167][142]
1052 [151]214,19:[153]:[153]"                                  "
1060 [161]A$:[139]A$[178]""[167]1060
1070 [139]A$[179][177]"R"[167]1100
1080 F1[178]1:S[178]0
1090 [142]
1100 [139]A$[178]"Q"[167][141]39900:[137]1040
1110 [139]A$[179]"A"[176]A$[177]"P"[167]1060
1120 S[178][198](A$)[171]65:F1[178]0
1130 [142]
10000 DV[178][194](186):N$[178]"B.ANTH/FLAG 2":[159]15,DV,15,"S0:"[170]N$:[160]15:[148]N$,DV:[128]
39900 [151]214,18:[153]:[153][163]8)"CONTQUIT? ARE YOU SURE? (YCONT/NCONT)ON"
39910 [161]A$:[139]A$[178]""[167]39910
39920 [139]A$[178]"Y"[167]40000
39930 [153][163]8)"CONT                             ON"
39940 [142]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]9:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"ATN(null)(null)LEFT$VAL(null)(null) ATN(null)STR$ ASC(null)ATNCHR$(null) (null)ASC (null)LEFT$VAL (null)(null)(null)(null)STR$"
60032 Z$(1)[178]"BY (null)ARQUIS, LEFT$ARNED AND (null)UCKER"
60040 Z$(2)[178]"(LEN) 1995 BY (null)OFTDISK (null)UBLISHING"[170][199](13)
60050 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)="[212]O SUBSCRIBE CALL 1-800-594-3370."
60090 POKE214,12:PRINT
60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN